log using "policyInfluence.log"

use "policyInfluence.dta", clear

* Table B.2: Summary Statistics
sum intraPanDist novelty caseload100 cirPubRate2, detail
tab published
tab GRbuck
tab amicus
tab oralArg
tab DJpub
tab dissent
tab affirm
tab perCuriam
tab order
tab issue2
tab cirPrefPub
tab cirPrefUnpub
tab cirPubCriteria

*Table B.3
probit published i.GRbuck intraPanDist amicus oralArg DJpub dissent novelty affirm perCuriam order i.issue2 caseload100 cirPrefPub cirPrefUnpub cirPubCriteria cirPubRate2
estimates store mod
estout mod, cells((b(star fmt(3)) se(fmt(3) par))) starlevels(* 0.05) stats( N bic aic)  label varlabels(_cons Intercept)

* Figure 4
* Low ideological diversity (5%)
estimates restore mod
margins, at(GRbuck=(0 1 2 3) intraPanDist=0.057 amicus=0 oralArg=1 DJpub=0 dissent=0 novelty=0.38 affirm=1 perCuriam=0 order=0 issue2=6 caseload100=3.5 cirPrefPub=0 cirPrefUnpub=0 cirPubCriteria=0 cirPubRate2 = 0.32)
* High ideological diversity (95%)
estimates restore mod
margins, at(GRbuck=(0 1 2 3) intraPanDist=0.981 amicus=0 oralArg=1 DJpub=0 dissent=0 novelty=0.38 affirm=1 perCuriam=0 order=0 issue2=6 caseload100=3.5 cirPrefPub=0 cirPrefUnpub=0 cirPubCriteria=0 cirPubRate2 = 0.32)


*Online Appendix C.1
probit published i.Gbuck##i.Rbuck intraPanDist amicus oralArg DJpub dissent novelty affirm perCuriam order i.issue2 caseload100 cirPrefPub cirPrefUnpub cirPubCriteria cirPubRate2
estimates store modAlt1

*Figure C1: Pred probability of publication, median published case
estimates restore modAlt1
margins, at(Gbuck=(0 1 2) Rbuck=(0 1 2 3) intraPanDist=0.639 amicus=0 oralArg=1 DJpub=0 dissent=0 novelty=0.38 affirm=1 perCuriam=0 order=0 issue2=6 caseload100=3.5 cirPrefPub=0 cirPrefUnpub=0 cirPubCriteria=0 cirPubRate2 = 0.32)

*Table C1
estout modAlt1, cells((b(star fmt(3)) se(fmt(3) par))) starlevels(* 0.05) stats( N bic aic)  label varlabels(_cons Intercept)


*Online Appendix C.2
probit published i.GRbuck intraPanDist amicus oralArg DJpub dissent novelty affirm perCuriam order caseload100 cirPrefPub cirPrefUnpub cirPubCriteria cirPubRate2 if issue2 == 1
estimates store modCrim
probit published i.GRbuck intraPanDist amicus oralArg DJpub dissent novelty affirm perCuriam order caseload100 cirPrefPub cirPrefUnpub cirPubCriteria cirPubRate2 if issue2 == 4
estimates store modCivR
probit published i.GRbuck intraPanDist amicus oralArg DJpub dissent novelty affirm perCuriam order caseload100 cirPrefPub cirPrefUnpub cirPubCriteria cirPubRate2 if issue2 == 6
estimates store modCiv
probit published i.GRbuck intraPanDist amicus oralArg DJpub dissent novelty affirm perCuriam order caseload100 cirPrefPub cirPrefUnpub cirPubCriteria cirPubRate2 if issue2 == 3
estimates store modAdmin
probit published i.GRbuck intraPanDist amicus oralArg DJpub dissent novelty affirm perCuriam order caseload100 cirPrefPub cirPrefUnpub cirPubCriteria cirPubRate2 if issue2 == 2
estimates store modPrPet

*Table C.2
estout modCrim modCivR modCiv modAdmin modPrPet, cells(b(star fmt(3)) se(fmt(3) par)) starlevels(* 0.05) stats( N bic aic)  label varlabels(_cons Intercept)


log close

